home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / util / wb / RunBar31.lha / RunBar / Develop / Source / CpuControl.src / CpuControl.c < prev    next >
C/C++ Source or Header  |  1996-11-23  |  6KB  |  189 lines
  1.  
  2. #include <proto/exec.h>
  3. #include <proto/dos.h>
  4. #include <proto/runbar.h>
  5. #include <exec/execbase.h>
  6. #include <exec/memory.h>
  7.  
  8. void VBRtest(void); /* VBR test procedure */
  9. void VBRMove(void); /* VBR move procedure */
  10.  
  11. struct Library *RunBarBase; /* Library Base*/
  12.  
  13. /* CPU Image */
  14. UWORD chip cpuData[39] =
  15. {
  16.     /* Plane 0 */
  17.     0x0000,0x0000,0x2AA0,0x1FE0,0x3FE0,0x1FE0,0x3860,0x1FE0,
  18.     0x3060,0x1FE0,0x3FE0,0x0000,0x0000,
  19.     /* Plane 1 */
  20.     0x0000,0x1540,0x1540,0x6030,0x0800,0x6030,0x0780,0x6030,
  21.     0x0F80,0x6030,0x1540,0x1540,0x0000,
  22.     /* Plane 2 */
  23.     0x0000,0x0000,0x0A80,0x0000,0x2820,0x0000,0x27A0,0x0000,
  24.     0x2FA0,0x0000,0x0A80,0x0000,0x0000
  25. };
  26.  
  27. struct Image cpu =
  28. {
  29.     0, 0,        /* LeftEdge, TopEdge */
  30.     13, 13, 3,    /* Width, Height, Depth */
  31.     cpuData,    /* ImageData */
  32.     0x0007, 0x0000,    /* PlanePick, PlaneOnOff */
  33.     NULL        /* NextImage */
  34. };
  35.  
  36.  
  37. /* Menu Structure */
  38. struct SBItem menu[]=
  39. {
  40.   {0,NULL},         /* 0 - Normal, 1 - Disabled */ 
  41.   {0,NULL},         /* 2 - Bar   ,15 - Menu End */
  42.   {2,NULL},
  43.   {0,"Exit"},
  44.   {15,NULL}     
  45. };
  46.  
  47. /* Information about Menu */
  48. struct RBInfo info =
  49. {
  50.   RB_VERSION,     /* Always set it to RB_VERSION*/
  51.   "CpuControl",/* Menu name.Please use specific name, because */
  52.                   /* this name will use for unique check. */
  53.   RBF_UNIQUE      /* Will not allow duplicates. */
  54. };
  55.  
  56.     ULONG  vbp;
  57. static  char   ver[]="$VER: CPU Control by Sergej Kravcenko 1.0 (24.11.96)";
  58. /*--------------------Main Program-------------------------*/
  59. void main()
  60. { 
  61.     struct Task *prtask;
  62.     char   line1[]="VBR to FAST";
  63.     char   line2[]="VBR to CHIP";
  64.     char   line3[]="Enable Cache";
  65.     char   line4[]="Disable Cache";
  66.     BOOL   my_close,cache,vbr;
  67.     struct MsgPort *port;
  68.     struct RBMessage *my_message;
  69.     UWORD  Flags;
  70.     ULONG  fastmem,cachestate,mask;
  71.     struct ExecBase *SysBase=*(struct ExecBase **)4;
  72.     ULONG  class,code,cputype; /* cputype 0 - 000 or 010,1 - 020,2 - 030 */
  73.                                /* 3 - 040,4 - 060                 */
  74.     
  75. /*---------------Open Library------------------------------*/    
  76.     RunBarBase = (struct Library *)
  77.     OpenLibrary( "RunBar.library",1);
  78.   
  79.     if( RunBarBase == NULL) goto end;
  80.     
  81. /*------------------Get Task Pointer-----------------------*/    
  82.     prtask = FindTask(NULL);
  83.     
  84. /*-------------------Get CPU Type--------------------------*/    
  85.     Flags = SysBase->AttnFlags;
  86.     cputype = 0;
  87.     if ((Flags&0x0002) != 0)
  88.         cputype = 1;
  89.     if ((Flags&0x0004) != 0)
  90.         cputype = 2;
  91.     if ((Flags&0x0008) != 0)
  92.         cputype = 3;
  93.     if ((Flags&0x0080) != 0)
  94.         cputype = 4;
  95. /*------------Check Fast Mem------------------------------*/ 
  96.     Forbid();
  97.     fastmem = AvailMem(MEMF_FAST);
  98.     Permit();
  99. /*---Quit if 68000 CPU and no FAST memory------------*/
  100.     if ((fastmem < 1024) && (cputype == 0)) goto end;
  101.  
  102. /*----------Get Info about Cache and VBR state---------*/
  103.     cachestate = CacheControl(0x00000000,0x00000000);
  104.     if ((cachestate & 0x00000001) != 0) cache = TRUE;
  105.     else cache = FALSE;
  106.     
  107.     Supervisor((unsigned long (* )())VBRtest);
  108.     if (vbp != 0)  vbr = TRUE;
  109.     else vbr = FALSE;  
  110.  
  111.     if (cputype > 1) mask = 0x00001111;
  112.     else mask = 0x00000001;
  113. /*------------------Layout Menu-----------------------*/
  114.     if (fastmem < 1024)
  115.     menu[1].sbi_Type = 1;
  116.     else
  117.      if (vbr == TRUE) menu[1].sbi_Name = line2;
  118.         else menu[1].sbi_Name = line1;
  119.         
  120.     if (cputype == 0) menu[0].sbi_Type = 1;
  121.     else
  122.      if (cache == TRUE) menu[0].sbi_Name = line4;
  123.         else menu[0].sbi_Name = line3;             
  124. /*------------------Create RunBar Menu---------------------*/    
  125.     if (RB_AddTask(prtask,menu,&cpu,&info,&port) != 0) goto end;
  126.     
  127. /*------------------Wait Port------------------------------*/    
  128.     my_close = FALSE;
  129.     while( my_close == FALSE )
  130.     {
  131.      WaitPort(port);
  132.      my_message = (struct RBMessage *) GetMsg(port);
  133.      if (my_message)
  134.      {
  135.         class    = my_message->rb_class;
  136.         code     = my_message->rb_code;
  137.         ReplyMsg((struct Message *) my_message );
  138.         
  139.         if(class == IDCMP_RUNBARCMD)
  140.          {
  141.           switch (code)
  142.           {
  143.             case 0:
  144.               if (cache == FALSE)
  145.               {
  146.                cache = TRUE; 
  147.                CacheControl(0x00001111,mask);
  148.               }
  149.               else
  150.               {
  151.                cache = FALSE; 
  152.                CacheControl(0x00000000,mask);
  153.               }
  154.               if (cache == TRUE) menu[0].sbi_Name = line4;
  155.                  else menu[0].sbi_Name = line3;
  156.               RB_Edit(prtask,menu,&cpu);   
  157.             break;
  158.             case 1:
  159.               VBRMove();
  160.               Supervisor((unsigned long (* )())VBRtest);
  161.               if (vbp != 0)  vbr = TRUE;
  162.               else vbr = FALSE;
  163.               if (vbr == TRUE) menu[1].sbi_Name = line2;
  164.               else menu[1].sbi_Name = line1;
  165.               RB_Edit(prtask,menu,&cpu);
  166.             break;
  167.             case 3:
  168.              my_close = TRUE;
  169.             break;  
  170.           }   
  171.          } 
  172.         if (class == IDCMP_RUNBARMSG)
  173.            {
  174.        /*------------Exit--------------------*/     
  175.              if (code == RB_REMOVE) my_close = TRUE;      
  176.            }                          
  177.        
  178.      }
  179.     }
  180. /*------------Remove RunBar Menu---------------------*/
  181. /* If you get non NULL result, you must wait some time, and try */
  182. /* again. */
  183.     
  184.     while (RB_RemoveTask(prtask)) Delay(10);
  185.     
  186. /*-----------Close Library---------------------------*/    
  187. end:if ( RunBarBase ) CloseLibrary ((struct Library *) RunBarBase);   
  188. }
  189.